﻿Public Class masnation
    Private nationID = Nothing
    Private nationDescription = Nothing
    Private nationStatus = Nothing
    Private selectMasnation = "SELECT `nation` as 'รหัสสัญชาติ', `nationdesc` as 'สัญชาติ' ,`status` as 'สถานะการเปิดใช้งาน' FROM masnation"
    Dim connect As CONDB = CONDB.NewConnection()
    'Dim connectlocal As conlocal = conlocal.NewConnection

    Property nationID_ As Integer
        Get
            Return nationID
        End Get
        Set(value As Integer)
            nationID = value
        End Set
    End Property

    Property nationDescription_ As String
        Get
            Return nationDescription
        End Get
        Set(value As String)
            nationDescription = value
        End Set
    End Property

    Property nationStatus_ As Boolean
        Get
            Return nationStatus
        End Get
        Set(value As Boolean)
            If value = True Then
                nationStatus = 1
            Else
                nationStatus = 0
            End If
        End Set
    End Property

    Property selectMasnation_ As String
        Get
            Return selectMasnation
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub insertMasnationData()
        If nationID > 0 And nationDescription <> "" Then
            If TypeOf nationDescription Is String Then
                If connect.GetTable("SELECT nation FROM masnation WHERE nation = '" & nationID & "' OR nationdesc = '" & nationDescription & "'").Rows.Count > 0 Then
                    MsgBox("มีข้อมูลหรือรหัสสัญชาตินี้อยู่ในระบบแล้ว")
                Else
                    Try
                        connect = CONDB.NewConnection()
                        'connectlocal = conlocal.NewConnection()

                        connect.ExecuteNonQuery("INSERT INTO masnation (nation, nationdesc, status) VALUES ('" & nationID & "', '" & nationDescription & "', '" & nationStatus & "')")
                        'connectlocal.ExecuteNonQuery("INSERT INTO MASNATION (NATION, NATIONDESC, STATUS) VALUES ('" & nationID & "', '" & nationDescription & "', '" & nationStatus & "')")
                        MsgBox("ท่านได้ทำการเพิ่มข้อมูลสัญชาติเรียบร้อยแล้ว")
                    Catch ex As Exception
                        MsgBox("มีเลขรหัสสัญชาตินี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                    End Try
                    connect.Dispose()
                    'connectlocal.Dispose()
                End If
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

    Public Sub editMasnationData()
        If nationID > 0 And nationDescription <> "" Then
            If TypeOf nationDescription Is String Then
                Try
                    connect = CONDB.NewConnection()
                    'connectlocal = conlocal.NewConnection()

                    connect.ExecuteNonQuery("UPDATE masnation SET nationdesc = '" & nationDescription & "', status = '" & nationStatus & "' WHERE nation = '" & nationID & "'")
                    'connectlocal.ExecuteNonQuery("UPDATE MASNATION SET NATIONDESC = '" & nationDescription & "', STATUS = '" & nationStatus & "' WHERE NATION = '" & nationID & "'")
                    MsgBox("ท่านได้ทำการแก้ไขข้อมูลสัญชาติเรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox("มีเลขรหัสสัญชาตินี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                End Try

                connect.Dispose()
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

End Class
